Kliknuti na caption u okna
Otázka od: LUKES Václav
13. 9. 2002 10:44
Ahoj,
prosim o radu. Mam D5 a Win 2000. Chtel bych po kliknuti levym tlacitkem mysi
na CAPTION formulare vypsat nejaky text, treba ShowMessage('AHOJ');
Diky
V.
Odpovedá: Kalhous Zdenek
13. 9. 2002 11:35
On 13 Sep 2002 at 10:11, LUKES Václav wrote:
> Chtel bych po kliknuti levym
> tlacitkem mysi na CAPTION formulare vypsat nejaky text, treba
> ShowMessage('AHOJ');
Neco jako:
type
Tprog = class(TForm)
...
procedure Cs(var Message: TMessage); message
WM_NCLBUTTONDOWN;
...
procedure Tprog.Cs(var Message: TMessage);
begin
ShowMessage('AHOJ');
inherited;
end;
Odpovedá: LUKES Václav
13. 9. 2002 10:54
Diky, to je ono...
V.
-----Original Message-----
From: Kalhous Zdenek [mailto:zdenek.kalhous@comarr.cz]
Sent: Friday, September 13, 2002 11:37 AM
To: delphi-l@clexpert.cz
Subject: Re: Kliknuti na caption u okna
On 13 Sep 2002 at 10:11, LUKES Václav wrote:
> Chtel bych po kliknuti levym
> tlacitkem mysi na CAPTION formulare vypsat nejaky text, treba
> ShowMessage('AHOJ');
Neco jako:
type
Tprog = class(TForm)
...
procedure Cs(var Message: TMessage); message
WM_NCLBUTTONDOWN;
...
procedure Tprog.Cs(var Message: TMessage);
begin
ShowMessage('AHOJ');
inherited;
end;
Odpovedá: LUKES Václav
13. 9. 2002 11:10
Jeste malickost.
Ta hlaska se zobrazi, i kdyz kliknu na krizek - uzavreni okna...
Prosim, co s tim ?
V.
-----Original Message-----
From: LUKES Václav
Sent: Friday, September 13, 2002 11:52 AM
To: delphi-l@clexpert.cz
Subject: RE: Kliknuti na caption u okna
Diky, to je ono...
V.
-----Original Message-----
From: Kalhous Zdenek [mailto:zdenek.kalhous@comarr.cz]
Sent: Friday, September 13, 2002 11:37 AM
To: delphi-l@clexpert.cz
Subject: Re: Kliknuti na caption u okna
On 13 Sep 2002 at 10:11, LUKES Václav wrote:
> Chtel bych po kliknuti levym
> tlacitkem mysi na CAPTION formulare vypsat nejaky text, treba
> ShowMessage('AHOJ');
Neco jako:
type
Tprog = class(TForm)
...
procedure Cs(var Message: TMessage); message
WM_NCLBUTTONDOWN;
...
procedure Tprog.Cs(var Message: TMessage);
begin
ShowMessage('AHOJ');
inherited;
end;